home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / MemoNoteStack 4.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1988-03-06  |  20.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>2885</cardID>
  8.     <listID>3829</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>>MemoNote --4.1.1 ***Required Delimiter for MemoNotes Installer--MemoNotes‚Ñ¢ by Peter Fraterdeus--Ver.4.1.1 -- 5 Mar 88 PSF--InitGlobals Implemented--Command-Click on Field brings Note to front of card (ver 4.1.1 Notes)--Version 4.1 -- 28 Feb 88 PSF--MemoNotes‚Ñ¢ Settings Page implemented--Converts ver 3.x notes to ver 4.x--Version 4.0 -- rev. 23 feb 1988 PSF--Option-Click when selecting Location of new note--makes note into DoMeNote‚Ñ¢ with interactive HyperTalk.--Re‚Äìordered button & field creation so field is created behind buttons--Version 3.1  --- rev. 5 feb 1988 PSF--Command-Click on Field brings Note to front of card (not yet!)--Version 3.0  --- rev. 5 feb 1988 PSF--Added GrowButton.--Completely consolidated button scripts into stack script.--buttons are much smaller, and more concise in their message handling--Version 2.2a --- rev. 1 feb 1988 PSF--Now checks that NoteButton is in dragRect before resetting location--SetRect(t,l,b,r) implemented--Version 2.2 --- rev. 26 jan 1988 PSF--Installer/De-Installer Button implemented (uses delimiter)--Version 2.1 --- rev. 25 jan 1988 PSF--Consolidated all functions into MemoNote button--and made Notes self-removing (removed "Remove Notes" button)--MemoNote changes to ShowNotes on option-click.--MemoNoteButton pastes self to background, if it ain't‚Ķ--ShowNote is pared to the essence‚Ķ--Version 2.0 --- rev. 23 jan 1988 PSF--Note buttons move in browse mode by click-dragging--*************************on setVersionIDglobal gVersionIDput "4.1.1" into gVersionIDinitGlobalsend setversionIDon initGlobalsglobal gMoveNote, screenRect, clipRect, dragRectglobal gNoteStyle, gNoteShowLines, gNoteTFontglobal gNoteTSize, gGlobalInitFlag, gDoMeNoteRequireCmdif gGlobalInitFlag is empty or gGlobalInitFlag is false thenset lockscreen to truepush cardgo to card MemoNoteSettings of stack "memoNoteStack*4.0"pop cardput "0,0,511,341" into screenRectput true into gGlobalInitFlagend ifend initGlobalson NoteButtonMouseUpglobal gVersionIDsetVersionIDput the userlevel into templevelset the userlevel to 5put the id of the target into myIDif  line 1 of the script of the target contains "4." thenif the optionkey is down then--‚Ä¢Sends a killField Message to the Note Button selected, removing-- both field and button.--‚Ä¢The Note Button sends a KillNotes message up the chain when-- clicked with the option Key down and the action is confirmed.answer "Remove this Note?" with "Remove" or "Cancel"if it = "Remove" thenset lockscreen to trueget the id of the target -- will only be a Note button--‚Ä¢send killField to card button id it-- the button clears its fieldset the visible of card field id (myID-1)  to truechoose field Toolclick at the loc of card field id (myID-1)domenu clear fieldset the visible of card button id (myID+1)  to truechoose button Toolclick at the loc of card button id (myID+1)domenu clear button--***choose button toolclick at Loc of card button id itdomenu clear buttonset cursor to 1choose browse toolset the userlevel to templevelexit to hypercardend ifset the userlevel to templevelexit NoteButtonMouseUpend ifput the visible of card field id (myID-1) into showingshowfield showingelse -- convert old buttonset lockscreen to trueset cursor to 4answer "Converting Old Button‚Ķ"put card field id (myID+2) into tempTextchoose field toolclick at the loc of card field id (myID+2)domenu "cut field"domenu "paste field"choose button toolclick at the loc of card button ID myIDdomenu "cut button"domenu "paste button"put the id of card button (the number of buttons) into newIdget the script of card button id newIdput gVersionID after line 1 of itset the script of card button id newId to itclick at the loc of card button ID (myID+1)domenu "cut button"domenu "paste button"choose browse toolput tempText into card field (the number of card fields)end ifset the userlevel to templevelend NoteButtonMouseUp*************************on MemoNote -- 6 Jan 88 ‚Äî MemoNotes‚Ñ¢ by Peter Fraterdeusset lockscreen to trueput the userlevel into templevelset userlevel to 5MagicCopyglobal gVersionIDsetVersionIDglobal gMoveNote, screenRect, clipRect, dragRectglobal gNoteStyle, gNoteShowLines, gNoteTFont,¬¨gNoteTSize,gNoteTHeight, gRegisteredFlagShow msgput Msg into tempMsgput "Click where you want the new Note... (or command-. to cancel)"beepset cursor to 2set lockscreen to truewait until the mouse is down -- click at note startput False into DoMeFlagif the optionKey is down then put True into DoMeFlagget the mouseLocput item 1 of it into HMouseput item 2 of it into VMouseset cursor to 4wait until the mouse is up -- drag to note sizeget the mouseLocif abs(Hmouse-item 1 of it)>100 thenput abs(Hmouse-item 1 of it) into fieldWidthelseput 162 into fieldWidth  -- change these for different note size.end ifif abs(Vmouse-item 2 of it)>62 thenput abs(Vmouse-item 2 of it) into fieldHeightelseput 100 into fieldHeight  -- change these for different note size.end if--‚Ä¢‚Ä¢‚Ä¢ Create the note ‚Ä¢‚Ä¢‚Ä¢put the number of buttons into ButtonNumput the number of card fields into FieldNumput tempMsg--‚Ä¢ Make Note Fieldchoose field tooldrag from HMouse,VMouse+16 to HMouse+fieldWidth,¬¨VMouse+fieldHeight with commandKey -- Draw the new Fieldchoose button tool -- this actually enables the new fieldget the id of card field (the number of card fields)set name of card field id it to "Note"&&itput short name of card field id it into FieldNameput "card field id " before itshow itput"*NoteFieldScript*"&gVersionID&return into NoteFieldScriptput"on MouseDown"&return after NoteFieldScriptput"send NoteFieldMouseDown"&return after NoteFieldScriptput"end MouseDown"&return after NoteFieldScriptset the script of it to NoteFieldScriptset style of it to gNoteStyleset locktext of it to falseset showlines of it to gNoteShowLinesset textFont of it to gNoteTFontset textSize of it to gNoteTSizeset textHeight of it to gNoteTHeightput it into fieldIDput"Note created"&&the short time&& the short Date&return into NoteTextif gRegisteredflag = false or gRegisteredflag = empty thenput"MemoNotes‚Ñ¢ Hypernote System"&return after NoteTextput"¬©1988 PeterFraterdeus"&return after NoteTextput"CIS 73306,2703"&return after NoteTextput"ShareWare-$20. to: "&return after NoteTextput"Alphabets, Inc."&return after NoteTextput"Box 5448"&return after NoteTextput"Evanston, Illinois"&return after NoteTextput"60204-5448"&return after NoteTextend ifput NoteText into card field FieldName--‚Ä¢Make Note Field--‚Ä¢ Make Buttonsput 0 into DoMeExtnif DoMeFlag then put 20 into DoMeExtn -- make the button longerdrag from HMouse,VMouse to¬¨  -- Draw the new NoteButtonHMouse+70 + DoMeExtn,VMouse+16 with commandKeydrag from  HMouse+fieldWidth,¬¨  -- the new GrowButtonVMouse+fieldHeight to HMouse+fieldWidth -16,¬¨  -- NoteField ID+2VMouse+fieldHeight+16 with commandKeychoose browse tool -- this actually enables the new button so that-- its properties may be set...put "card button (ButtonNum +1)" into itset name of it to "Note" -- The name must contain the word Noteshow it                  -- to be recognized, but may also includeset style of it to Rectangle -- other words (as "Phone Note", etc.)set autohilite of it to falseset hilite of it to trueset showname of it to trueif DoMeFlag is True then set name of it to "Do Me Note"put "card button (ButtonNum +2)" into it -- the Grow buttonset name of it to "Grow" --show it                  --set style of it to Rectangle --set autohilite of it to falseset hilite of it to trueset the icon of it to 1018 -- marker cross--‚Ä¢ Make Buttons-- *** Building the ButtonScript ***if DoMeFlag contains "true" thenput"*DoMeNoteButtonScript*"&gVersionID&return into NoteButtonScriptput"on MouseDown"&return after NoteButtonScriptput"  global gSelection"&return after NoteButtonScriptput"  put selection into gSelection"&return after NoteButtonScriptput"  pass mousedown"&return after NoteButtonScriptput"end MouseDown"&return after NoteButtonScriptput""&return after NoteButtonScriptput"on MouseUp"&return after NoteButtonScriptput"  send DoMeMouseUp"&return after NoteButtonScriptput"end MouseUp"&return after NoteButtonScriptput""&return after NoteButtonScriptput"****"&return after NoteButtonScriptput"Do Me Notes‚Ñ¢ ¬©1988"&return after NoteButtonScriptput"Interactive Fields from MemoNotes"&return after NoteButtonScriptelse -- default NoteButtonput"*NoteButtonScript*"&gVersionID&return into NoteButtonScriptput"on mouseup"&return after NoteButtonScriptput"  send NoteButtonMouseUp"&return after NoteButtonScriptput"end MouseUp"&return after NoteButtonScriptput""&return after NoteButtonScriptend if -- end DoMeFlagput"****This note created"&&the date & return after NoteButtonScriptput"MemoNotes‚Ñ¢ Hypernote system"&return after NoteButtonScriptput"¬©1988 PeterFraterdeus"&return after NoteButtonScriptput"CIS 73306,2703"&return after NoteButtonScriptput"ShareWare-$20. to: Alphabets, Inc."&return after NoteButtonScriptput"Box 5448/ Evanston, IL. 60204-5448"&return after NoteButtonScriptchoose button toolset script of card button (buttonNum +1) to NoteButtonScript--1st Btn.put"NoteGrowButton"&gVersionID&return into NoteButtonScriptput"**"&return after NoteButtonScriptput"on mousedown"&return after NoteButtonScriptput"  send NoteGrowMouseDown"&return after NoteButtonScriptput"end mousedown"&return after NoteButtonScriptput"***"&return after NoteButtonScriptput"on mouseup"&return after NoteButtonScriptput"  send NoteGrowMouseUp"&return after NoteButtonScriptput"end mouseUp"&return after NoteButtonScriptput"****"&return after NoteButtonScriptput"on showGrow"&return after NoteButtonScriptput"  send showGrowButton"&return after NoteButtonScriptput"end showGrow"&return after NoteButtonScriptput""&return after NoteButtonScriptput"MemoNotes‚Ñ¢ Hypernote system"&return after NoteButtonScriptput"¬©1988 PeterFraterdeus"&return after NoteButtonScriptput"CIS 73306,2703"&return after NoteButtonScriptput"ShareWare-$20. to: Alphabets, Inc."&return after NoteButtonScriptput"Box 5448/ Evanston, IL. 60204-5448"&return after NoteButtonScriptchoose browse toolset script of card button (buttonNum +2) to NoteButtonScript-- 2nd Btnset cursor to 1choose browse toolset cursor to 1set the userlevel to templevelset lockscreen to falseclick at the loc of card field FieldNameclick at the loc of card field FieldNametype tabtype tab with shiftKeyend MemoNote***********************on DoMeMouseUp -- Command-Click to do Fieldglobal gmoveNoteglobal gDoMeNoteRequireCmd -- Default is Trueif gmoveNote is true or the optionKey is down or¬¨(the commandkey is up and gDoMeNoteRequireCmd is true) thenNoteButtonMouseUpexit DoMeMouseUpend ifDoFieldend DoMeMouseUpon DoFieldglobal gSelectionget gSelectionput the id of the target - 1  into ID -- ver 4.0 refsif gSelection is empty thenget card field id IDend ifput "on Perform " & return before itput  return&" end Perform " & return after itput "on closefield " & return after itput "send DoMeCloseField " & return after itput "end closefield" & return after itput "on MouseDown"&return after itput "send NoteFieldMouseDown"&return after itput "end MouseDown"&return after itset the script of card field id ID to itsend Perform to card field id IDend DoFieldon DoMeCloseField -- should be an XCMD... Prettifies DoMe Fields-- Doesn't work yet with ‚Äúif--then--action‚Äù all on one line...put "    " into cTabput the length of cTab into LnthcTabput "" into ntabput the id of the target into itput card field id it into tempTextif the number of lines in tempText >50 then exit DoMeClosefield-- takes too long....repeat with i=1 to the number of lines in tempTextrepeat while char 1 of line i of tempText =" "delete char 1 of line i of tempTextend repeatend repeatrepeat with i =1 to the number of lines in tempTextif word 1 of line i of tempText is in "on,if,repeat,else" thenput cTab before nTabend ifif word 1 of line i +1 of tempText is in "end,else" thendelete char 1 to LnthcTab of nTabend ifput ntab before word 1 of line i +1 of tempTextend repeatput temptext into card field id itend DoMeCloseFieldon noteFieldMouseDown -- cmdKey-click to bring field to Front-- This works in Version 4.1.1 or laterset lockscreen to trueput the id of the target into MyIdput card field id (myID) into tempTextchoose field toolclick at the loc of card field id (myID)domenu "cut field"domenu "paste field"choose button toolclick at the loc of card button ID (myID+1)domenu "cut button"domenu "paste button"click at the loc of card button ID (myID+2)domenu "cut button"domenu "paste button"choose browse toolput tempText into card field (the number of card fields)end noteFieldMouseDownon showGrowButtonput the rect of the target into myRectget the rect of card field id (the id of the target -2)put item 3 of it -17 into item 1 of myRectput item 4 of it into item 2 of myRectput item 3 of it into item 3 of myRectput item 4 of it +17 into item 4 of myRectset the rect of the target to myRectset the visible of the target to trueend showGrowButton***on showField showingglobal gMoveNote,dH,dVput the id of the target into myIDif the paramcount=0 then put true into showing--1 Feb chngd. to "true"if (showing=false and gMoveNote = false)¬¨or (showing=true and gMoveNote = true) then-- if the field isn't showing and the button hasn't been moved-- then show the field in its present location-- or if the field is showing but the button has been moved-- then reshow the field in its new locationdoHilite trueget the rect of the targetput it into bRect--if card button id (myID +1) ‚↠empty then¬¨get the rect of  card button id (myID +1)put gethv ("card field id "&&(myID -1)) into tempset the rect of card field id (myID -1) to¬¨item 1 of bRect,item 4 of bRect,¬¨item 1 of bRect+dH,item 4 of bRect+dVshow card field id (myID -1)send showGrow to card button id (myID +1)elsedoHilite falsehide card field id (myID -1)hide button id (myID +1)end ifend showField***on NoteGrowMouseUp --global gMoveNoteput true into gMoveNoteput the rect of the target into myRectput the id of the target into myIDget the rect of card field id (myID -2)--put item 3 of myRect into item 3 of itput item 2 of myRect into item 4 of itset the rect of  card field id (myID -2) to itput the visible of card field id (myID -2)  into showingsend showfield to card button id (myID -1)end NoteGrowMouseUp***on NoteGrowMouseDownglobal DragRect, ClipRect,screenRectput the rect of card field id (the id of the target -2) into clipRectput item 1 to 2 of clipRect into dragRectput ","&item 3 to 4 of screenRect after dragRectrepeat while the mouse is down and ¬¨pointinRect (the mouseLoc, the rect of the target)end repeatrepeat until the mouse is up -- doDragButtonget the mouseLocif pointinRect (it, dragRect) then set the loc of target to itend repeatend NoteGrowMouseDown**************************on ShowNotes -- 7 Jan '88 by Peter Fraterdeus (ver 2.11 -- 25jan88)-- Part of the MemoNotes‚Ñ¢ system--‚Ä¢Sends a showField message to any button named "Note" on a card-- thus toggling the visiblity of the Note Fields on the cardset lockscreen to trueglobal HideAllif hideall is empty then put false into hideallput "showField"&& (not Hideall) into doWhatput (not Hideall) into hideAllrepeat with btn=1 to the number of card buttonsget the name of card button btnif line 1 of the script of it contains "NoteButtonScript*" thensend doWhat to card button btn -- if this causes a problem-- make sure the MemoNoteButton is in the Background!-- Also, any buttons from earlier versions of MemoNotes-- or buttons with the word NOTE in them (ie. "Go MemoNoteStack",-- or other people's stacks), that don't know about showField-- will not like the ShowNote message.-- If necessary, add the following to the offending button script.-- on showfield  -- (Remove the dashes, of course‚Ķ)-- end showfield  -- (‚Ķand these parenthetical notes)end ifend repeatend ShowNotes***********************on mousedown -- 6 Jan 88 - ToggleFieldStyle by Peter Fraterdeusset lockScreen to trueput the userlevel into templevelset userlevel to 5magicCopyget the name of the targetif it contains "Field"  thenif the shiftKey is down and the commandKey is down thenget style of the targetif it <>"Scrolling" thenset style of the target to scrollingelseset style of the target to rectangle -- change for a differentend if                                 -- default rect.end ifelseif it contains "card button" and it contains "Note" thenset lockScreen to falseMoveNoteset the userlevel to templevelexit to hypercardend ifend ifset the userlevel to templevelend mousedown**********************on MoveNoteglobal gMoveNote, screenRect, clipRect, dragRectput false into gMoveNoteput "6,7,506,333" into dragRectput the loc of the target into temprepeat while the mouse is down and ¬¨pointinRect (the mouseLoc, the rect of the target)end repeatrepeat until the mouse is up -- doDragButtonget the mouseLocif pointinRect (it, dragRect) then set the loc of target to itend repeatif the loc of the target ‚↠temp  then put true into gMoveNote-- one of the great qualities of-- object based environments....send mouseup to target       -- I borrowed the concept, but thechoose browse tool       -- execution is completely my design...end moveNote**********************on doHilite OnOff -- onOff must be either True or False if it existsif the paramcount = 0 thenset the hilite of the Target to not the hilite of the Targetelseset the hilite of the Target to onOffend ifend doHilite**********************on MagicCopy -- Magic Button Copy by Peter Fraterdeusif the shiftKey is down and the optionKey is down and word 2 of¬¨the name of the target is "Button"thenchoose button toolclick at the loc of the target -- Shift-Opt.Click to copy button*domenu copy buttonput the short name of the target&&"Button copied..." into msgchoose browse toolexit to hyperCardend ifend MagicCopy***********************on enterkey -- Toggle Browse-Button-Field Tools with EnterKey+Shift-- I got this out of Macazine, I believe, from Jerry Daniels and added-- the ShiftKey modifierif the userlevel <4 then exit enterkeyif the shiftKey is down thenif the tool is "browse tool" then choose button toolelse if the tool is "button tool" then choose field toolelse choose browse toolend ifend enterkey***********************These are just some little helpers for finding the name and sizesof objects***********************on showRect targput the rect of targ into msgend showRecton getSName targput the short name of targ into msgend getSNameon getName targput the name of targ into msgend getNamefunction getRect targreturn the rect of targend getRecton showHV targglobal dH,dVput getRect(targ) into msgput getHV(targ) into tempput "-"&&dH && dV after msgend showHVfunction getHV targglobal dH,dVget the rect of targput item 3 of it - item 1 of it into dHput item 4 of it - item 2 of it into dVreturn trueend getHVfunction PointinRect apoint,aRectif item 1 of apoint >= item 1 of aRect¬¨and item 1 of apoint <= item 3 of aRect¬¨and item 2 of apoint >= item 2 of aRect¬¨and item 2 of apoint <= item 4 of aRectthen return trueelsereturn falseend ifend PointinRect***